home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PROT100.ZIP / FOSSTEST.PAS < prev    next >
Pascal/Delphi Source File  |  1993-03-15  |  894b  |  40 lines
  1. program fostest;
  2.  
  3. uses fos;
  4.  
  5. var n1 : word;
  6.     n2 : char;
  7.     n3,
  8.     n4 : byte;
  9.     C : BOOLEAN;
  10.  
  11. begin
  12.    portnum := 1;
  13.    if not openfossil then exit;
  14.    repeat
  15.      GetFosInfo( fosinfo );
  16.      writeln( FossilIdStr );
  17.      write('Baud: ');
  18.      readln(baudrate);
  19.      write('Parity(N,E,O): ');
  20.      readln(parity);
  21.      write('Databits: ');
  22.      readln(databits);
  23.      write('StopBits: ');
  24.      readln(stopbits);
  25.      comm_set_baud(baudrate,parity,databits,stopbits);
  26.      getfosinfo(fosinfo);
  27.      n1 := com_baud(fosinfo.baud);
  28.      n2 := com_parity(fosinfo.baud);
  29.      n3 := com_data(fosinfo.baud);
  30.      n4 := com_stop(fosinfo.baud);
  31.      writeln('-----------------');
  32.      writeln('baud ',n1);
  33.      writeln('parity ',n2);
  34.      writeln('data ',n3);
  35.      writeln('stop ',n4);
  36.      c := fos.carrier;
  37.      writeln('Carrier ', c);
  38.    until n1=300;
  39. end.
  40.